 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: Enumerating History Files
|
||
|
' Description: Lists all the IIS history files found on the local computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject _ ("winmgmts:{authenticationLevel=pktPrivacy}\\" _ & strComputer & "\root\microsoftiisv2") Set objComputer = _ objWMIService.Get("IIsComputer.Name='LM'") intIndex = 0 Do While True strName = "" objComputer.EnumHistory strLocation, intMajorVersion, _ intMinorVersion, strDateTime, intIndex If (Err.Number <> 0) Then Exit Do End If dtDate = DateSerial(Mid(strDateTime, 1, 4), _ Mid(strDateTime, 5, 2), Mid(strDateTime, 7, 2)) dtTime = TimeSerial(Mid(strDateTime, 9, 2), _ Mid(strDateTime, 11, 2), Mid(strDateTime, 13, 2)) strFmtDateTime = FormatDateTime(dtDate) & " " & _ FormatDateTime(dtTime, vbLongTime) Wscript.Echo "Location: " & strLocation WScript.Echo "Major Version: " & intMajorVersion WScript.Echo "Minor Version: " & intMin0rVersion WScript.Echo "Date and Time: " & strFmtDateTime intIndex = intIndex + 1 Loop | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
